home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_136 / paste / paste.diff < prev    next >
Text File  |  1992-05-06  |  3KB  |  165 lines
  1. 38c38
  2. <  *    \b,\f, and \r.  (Just because *I* can't imagine why you'd want
  3. ---
  4. >  *    \b,\f,\r, and \v.  (Just because *I* can't imagine why you'd want
  5. 47,50c47
  6. < /* Modified to run under MINIX 1.1
  7. <  * by David O. Tinker  (416) 978-3636 (utgpu!dtinker)
  8. <  * Sept. 19, 1987
  9. <  */
  10. ---
  11. > #include <stdio.h>
  12. 52,54c49
  13. < #include <stdio.h>
  14. < #include "../include/errno.h"  /* make sure errno.h is available */
  15. < #include "../include/ctype.h"  /* make sure ctype.h is available */
  16. ---
  17. > extern int errno;
  18. 56c51
  19. < extern int errno;
  20. ---
  21. > #define CPM
  22. 58,60d52
  23. < #define MINIX   /* as opposed to C86, or AZTEC in my case */
  24. <         /* just in case I want to compile under DOS sometime */
  25. < 
  26. 72c64,65
  27. < #define DEL             '\177'
  28. ---
  29. > #define    VT        '\v'
  30. > #define    DEL        '\177'
  31. 77a71
  32. > #define COMMAND        "paste"
  33. 79,80c73
  34. < char *cmdnam,
  35. <      toupper();
  36. ---
  37. > char *cmdnam;
  38. 92a86,88
  39. > #ifdef CPM
  40. >     cmdnam = COMMAND;
  41. > #else
  42. 93a90
  43. > #endif
  44. 95,96d91
  45. <   if(argc >= 2) {
  46. < 
  47. 105c100
  48. <         switch(toupper(argv[0][1]))
  49. ---
  50. >         switch(argv[0][1])
  51. 106a102
  52. >             case 'd':
  53. 116a113
  54. >             case 's':
  55. 127d123
  56. <   }
  57. 129,131d124
  58. <   else
  59. <         prerr(USAGE,"");
  60. < 
  61. 142,143d134
  62. <         _cleanup();
  63. <         exit(0);
  64. 318d308
  65. <                 _cleanup();
  66. 365d354
  67. <             _cleanup();
  68. 391d379
  69. <         _cleanup();
  70. 409a398
  71. >     register char *strout;
  72. 411c400
  73. <     register char *strout;
  74. ---
  75. >     strout = strptr;    /* Start at the same place, anyway */
  76. 413,414d401
  77. <     strout = strptr;    /* Start at the same place, anyway */
  78. < 
  79. 422,423c409
  80. < 
  81. <             switch(toupper(*strptr))
  82. ---
  83. >             switch(*strptr)
  84. 428a415,416
  85. >                 case 't':
  86. > #ifdef CPM
  87. 429a418
  88. > #endif
  89. 432a422,423
  90. >                 case 'n':
  91. > #ifdef CPM
  92. 433a425
  93. > #endif
  94. 436a429,430
  95. >                 case 'b':
  96. > #ifdef CPM
  97. 437a432
  98. > #endif
  99. 440a436,437
  100. >                 case 'f':
  101. > #ifdef CPM
  102. 441a439
  103. > #endif
  104. 444a443,444
  105. >                 case 'r':
  106. > #ifdef CPM
  107. 445a446
  108. > #endif
  109. 449,454c450,455
  110. <                 default:
  111. <                     *strout++ = *strptr;
  112. <             }
  113. <             
  114. <             strptr++;
  115. <         }
  116. ---
  117. >                 case 'v':
  118. > #ifdef CPM
  119. >                 case 'V':
  120. > #endif
  121. >                     *strout++ = VT;
  122. >                     break;
  123. 456,458c457,462
  124. <     }
  125. <     *strout = '\0';    /* Heaven forfend that we forget this! */
  126. < }
  127. ---
  128. >                 default:
  129. >                     *strout++ = *strptr;
  130. >             }
  131. >             
  132. >             strptr++;
  133. >         }
  134. 459a464,467
  135. >     }
  136. >     *strout = '\0';    /* Heaven forfend that we forget this! */
  137. > }
  138. > 
  139. 467c475
  140. <             fprintf(stderr,"%s : Usage: %s [-s] [-d<delimiter>] file1 file2 ...\n",cmdnam,cmdnam);
  141. ---
  142. >             fprintf(stderr,"%s : Usage: %s [-s] [-d<delimiterstring>] file1 file2 ...\n",cmdnam,cmdnam);
  143. 482d489
  144. <     _cleanup();
  145. 485,503d491
  146. < 
  147. < char toupper(c)            /* This is non-standard, but it works */
  148. < char c;
  149. < {
  150. <    char x;
  151. < 
  152. <    if (isalpha(c)) {
  153. <       if (c > 'Z') x = (c - ' ');
  154. <       else x = c;
  155. <    }
  156. <    else {
  157. <       if (isdigit(c))
  158. <           x = c;
  159. <       else x = '\0';        /* this will terminate a string
  160. <                  * at any character other than a
  161. <                  * letter or numeral.            */ 
  162. <    }
  163. <    return (x);
  164. < }
  165.